home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Site Building / 2Bitmap / data1.cab / Shared_Dll / IAPSHOP2.PS < prev    next >
Encoding:
Text File  |  2000-05-22  |  1.2 KB  |  52 lines
  1. level2 {
  2. band 0 eq {
  3. /DeviceRGB
  4. } {/DeviceGray} ifelse
  5. setcolorspace} if
  6. /readdata {currentfile exch readhexstring pop} def
  7. /image2 level2 {/image load def} {{begin
  8. Width Height BitsPerComponent ImageMatrix
  9. Decode length 2 eq
  10. {/DataSource load image} if
  11. Decode length 6 eq
  12. {DataSource 0 get DataSource 1 get DataSource 2 get
  13. true 3 colorimage} if
  14. Decode length 8 eq
  15. {DataSource 0 get DataSource 1 get
  16. DataSource 2 get DataSource 3 get
  17. true 4 colorimage} if
  18. end} def} ifelse
  19. /_image2 level2 {/_image load def} {{begin
  20. Width Height BitsPerComponent ImageMatrix
  21. /DataSource load _image end} def} ifelse
  22. /beginimage {
  23. band 0 eq band 4 eq or band 5 eq or
  24. {image2}
  25. {negative {{pop 0}} {{pop 1}} ifelse
  26. _settransfer _image2} ifelse
  27. } def
  28. 12 dict begin
  29. /ImageType 1 def
  30. /Width cols def
  31. /Height rows def
  32. /ImageMatrix [cols 0 0 rows neg 0 rows] def
  33. /BitsPerComponent 8 def
  34. band 0 eq
  35. {/Decode [0 1 0 1 0 1] def
  36. /MultipleDataSources true def
  37. /DataSource [
  38. {picstr1 readdata}
  39. {picstr2 readdata}
  40. {picstr3 readdata picstr4 readdata pop}
  41. ] def}
  42. {/Decode [0 1] def
  43. /DataSource {
  44. picstr1 readdata pop
  45. picstr2 readdata pop
  46. picstr3 readdata pop
  47. picstr4 readdata
  48. } def}
  49. ifelse
  50. currentdict end
  51. beginimage
  52.